{$CLEO .cs}

0000: NOP
0001: wait 2000 ms

1@ = 0 // cooldown flag
2@ = 0 // interior flag (ieride mi darda m)
3@ = 0 // pickup 1
4@ = 0 // pickup 2
5@ = 0 // pickup 3
6@ = 0 // pickup 4

:MainLoop
0001: wait 50 ms

00D6: if
0038:   $onmission == 0
004D: jump_if_false @MainLoop

00D6: if
0256:   player $PLAYER_CHAR defined
004D: jump_if_false @MainLoop

// === Dar -> eri ===
00D6: if and
1@ == 0
00F6:   player $player_char 0 96.46 -1136.76 10.47 radius 1.0 1.0 1.0
004D: jump_if_false @CheckExit

03E6: remove_text_box
016A: fade 0 1000 // ekran 1 sn karart
0001: wait 1000 ms
0055: put_player $player_char at 112.11 -1155.99 11.0
0171: set_player $player_char z_angle_to 180.0
2@ = 1 // ierideyiz
// Kyafet pickup'larn olutur
Pickup.Create(3@, 409, 2, 106.394, -1165.589, 11.0) // verc2
Pickup.Create(4@, 409, 2, 109.6115, -1164.657, 11.0) // verc3
Pickup.Create(5@, 409, 2, 98.8406, -1149.86, 11.0) // verc4
Pickup.Create(6@, 409, 2, 108.2125, -1146.912, 11.0) // verc5
016A: fade 1 1000 // ekran geri a
0001: wait 1000 ms
1@ = 1
0001: wait 800 ms
1@ = 0
goto @MainLoop

:CheckExit
// === eriden -> Dar ===
00D6: if and
1@ == 0
00F6:   player $player_char 0 112.11 -1155.99 11.0 radius 1.0 1.0 1.0
004D: jump_if_false @CheckPickups

03E6: remove_text_box
016A: fade 0 1000
0001: wait 1000 ms
0055: put_player $player_char at 95.8 -1136.2 10.47
0171: set_player $player_char z_angle_to 90.0
2@ = 0 // dardayz
// Pickup'lar yok et
Pickup.Destroy(3@)
Pickup.Destroy(4@)
Pickup.Destroy(5@)
Pickup.Destroy(6@)
016A: fade 1 1000
0001: wait 1000 ms
1@ = 1
0001: wait 800 ms
1@ = 0
goto @MainLoop

:CheckPickups
// === Kyafet Pickup'lar Kontrol ===
00D6: if
2@ == 1 // sadece ierideyken pickup'lar kontrol et
004D: jump_if_false @MainLoop

// verc2 pickup
00D6: if
Pickup.Picked_up(3@)
004D: jump_if_false @CheckPickup2
016A: fade 0 250
0001: wait 250 ms
0352: set_actor $player_actor skin_to 'verc2'
038B: load_requested_models
0353: refresh_actor $player_actor
016A: fade 1 250
0001: wait 250 ms
goto @MainLoop

:CheckPickup2
// verc3 pickup
00D6: if
Pickup.Picked_up(4@)
004D: jump_if_false @CheckPickup3
016A: fade 0 250
0001: wait 250 ms
0352: set_actor $player_actor skin_to 'verc3'
038B: load_requested_models
0353: refresh_actor $player_actor
016A: fade 1 250
0001: wait 250 ms
goto @MainLoop

:CheckPickup3
// verc4 pickup
00D6: if
Pickup.Picked_up(5@)
004D: jump_if_false @CheckPickup4
016A: fade 0 250
0001: wait 250 ms
0352: set_actor $player_actor skin_to 'verc4'
038B: load_requested_models
0353: refresh_actor $player_actor
016A: fade 1 250
0001: wait 250 ms
goto @MainLoop

:CheckPickup4
// verc5 pickup
00D6: if
Pickup.Picked_up(6@)
004D: jump_if_false @MainLoop
016A: fade 0 250
0001: wait 250 ms
0352: set_actor $player_actor skin_to 'verc5'
038B: load_requested_models
0353: refresh_actor $player_actor
016A: fade 1 250
0001: wait 250 ms
goto @MainLoop